(switch-to-buffer-other-frame): Raise the frame.

diff --git a/lisp/files.el b/lisp/files.el
index 2ccfa29d1355f301f12e48f851cf6f5224960e9c..ed6bb39cafde4fef3ebce8830c7e5d2ef713dd2a 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -443,7 +443,8 @@ unlike `file-truename'."
   "Switch to buffer BUFFER in another frame."
   (interactive "BSwitch to buffer in other frame: ")
   (let ((pop-up-frames t))
-    (pop-to-buffer buffer t)))
+    (pop-to-buffer buffer t)
+    (raise-frame (window-frame (selected-window)))))
 
 (defun find-file (filename)
   "Edit file FILENAME.